home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / DebugIT21.lha / DebugIT / Install < prev    next >
Encoding:
Text File  |  1995-02-18  |  1.7 KB  |  68 lines
  1. ; $VER: DebugIT 2.0
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 21)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED Release 2.1.0 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.  
  24.         (message (cat "\n"
  25.  
  26.             "DebugIT - Compiler Error Management         \n"
  27.             "                                            \n"
  28.             "©1995 Dietmar Eilert                        \n"
  29.             "      DIETMAR@TOMATE.MBP.OCHE.DE            \n"
  30.             "                                            \n"
  31.             "GoldED Release 2 required.                  \n"
  32.             "                                            \n"
  33.             "This utility is NOT 'freely distributable'. \n"
  34.             "Please have a look at the licence file      \n"
  35.             "before using this software. Thank you.      \n"
  36.         ))
  37.  
  38.         (if (not (exists "GoldED:API/DebugIT"))
  39.  
  40.             (makedir "GoldED:API/DebugIT")
  41.         )
  42.  
  43.         (copyfiles
  44.  
  45.             (source  (pathonly @icon))
  46.             (dest    "GoldED:API/DebugIT")
  47.             (pattern "(debugit|readme)")
  48.             (infos)
  49.         )
  50.  
  51.         (complete 100)
  52.  
  53.         (message "\nInstallation complete. Have fun :-)")
  54.  
  55.         (run (cat "gx FORCE MACRO=\"" (tackon (pathonly @icon) "auto.ged\"")))
  56.     )
  57.  
  58.     (message (cat "\n"
  59.  
  60.         "Please install GoldED before attempting to\n"
  61.         "install this client.                      \n"
  62.     ))
  63. )
  64.  
  65. (exit (quiet))
  66.  
  67. (welcome)
  68.